home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / MacHelp / MacHelp 1 / Apple Sac Information / Apple Sac Information / card_3340.txt < prev    next >
Encoding:
Text File  |  1988-02-25  |  1.2 KB  |  54 lines
  1. -- card: 3340 from stack: in
  2. -- bmap block id: 4776
  3. -- flags: 0000
  4. -- background id: 2648
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8000
  11. -- rect: left=417 top=285 right=338 bottom=507
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect dissolve
  23.   go to card id 2979 of stack "Apple Sac Home "
  24. end mouseUp
  25.  
  26.  
  27.  
  28.  
  29. -- part 2 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=422 top=3 right=21 bottom=507
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Compact Stack
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   put the size of this stack into var
  44.   ANSWER "This stack takes this much space" with var
  45.   put the freesize of this stack into var
  46.   ANSWER "You are wasting this much space" with var
  47.   if var > 0 then
  48.     answer "Would you like to compact this stack?" with No or Yes
  49.     if it is "yes"
  50.     then domenu "compact stack"
  51.   end if
  52. end mouseUp
  53.  
  54.